Dim h as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Bar1 as P
Dim var_Bar2 as P
Dim var_Chart as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	' var_Chart.PaneWidth(.f.) = 40
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(0) = 40"

	var_Chart.FirstVisibleDate = {06/20/2005}
	var_Chart.HistogramVisible = .t.
	var_Chart.HistogramHeight = 64
	var_Chart.HistogramView = 112
	var_Bar = var_Chart.Bars.Item("Split")
		var_Bar.Pattern = 6
		var_Bar.Shape = 18
		var_Bar.Color = 8388608
	var_Bar1 = var_Chart.Bars.Add("Task:Split")
		var_Bar1.Color = 8388608
		var_Bar1.Shortcut = "WorkingTask"
		var_Bar1.Pattern = 6
		var_Bar1.HistogramPattern = 6
		var_Bar1.HistogramType = 1
	var_Bar2 = var_Chart.Bars.Item("Task")
		var_Bar2.Color = 16711680
		var_Bar2.Pattern = 5
		var_Bar2.HistogramType = 1
		var_Bar2.HistogramPattern = 5
var_Items = oG2antt.Items
	h = var_Items.AddItem("True")
	var_Items.AddBar(h,"WorkingTask",{06/23/2005},{06/29/2005})
	' var_Items.ItemBar(h,"",21) = 4
	oG2antt.TemplateDef = "dim var_Items,h"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h
	oG2antt.Template = "var_Items.ItemBar(h,``,21) = 4"

	' var_Items.ItemBar(h,"",20) = .t.
	oG2antt.TemplateDef = "dim var_Items,h"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h
	oG2antt.Template = "var_Items.ItemBar(h,``,20) = True"

	h = var_Items.AddItem("False")
	var_Items.AddBar(h,"Task",{06/23/2005},{06/29/2005})
	' var_Items.ItemBar(h,"",21) = 4
	oG2antt.TemplateDef = "dim var_Items,h"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h
	oG2antt.Template = "var_Items.ItemBar(h,``,21) = 4"

	' var_Items.ItemBar(h,"",20) = .f.
	oG2antt.TemplateDef = "dim var_Items,h"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h
	oG2antt.Template = "var_Items.ItemBar(h,``,20) = False"

oG2antt.EndUpdate()

Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
Dim var_Level as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
	' var_Chart.PaneWidth(.f.) = 0
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(False) = 0"

	var_Chart.NonworkingDays = 0
	var_Chart.FirstVisibleDate = 0
	var_Chart.ToolTip = ""
	var_Level = var_Chart.Level(0)
		var_Level.Label = "<%i%>"
		var_Level.ToolTip = ""
	var_Chart.UnitWidth = 24
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2,4)
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",6,10)
oG2antt.EndUpdate()

' Occurs when the first visible date is changed.
function DateChange as v ()
	oG2antt = topparent:CONTROL_ACTIVEX1.activex
	oG2antt.Chart.FirstVisibleDate = 0
	oG2antt.Template = "ScrollPartEnable(2,1024) = False" // oG2antt.ScrollPartEnable(2,1024) = .f.
end function

Dim oG2antt as P
Dim var_Chart as P
Dim var_Level as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	' var_Chart.PaneWidth(.f.) = 0
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(False) = 0"

	var_Chart.NonworkingDays = 0
	var_Chart.FirstVisibleDate = 0
	var_Chart.ToolTip = ""
	var_Level = var_Chart.Level(0)
		var_Level.Label = "<%i%>"
		var_Level.ToolTip = "<%i%>"
	var_Chart.UnitWidth = 24
oG2antt.EndUpdate()

Dim oG2antt as P
Dim var_Chart as P
Dim var_Level as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	' var_Chart.PaneWidth(.f.) = 0
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(False) = 0"

	var_Chart.NonworkingDays = 0
	var_Chart.FirstVisibleDate = 0
	var_Chart.ToolTip = ""
	var_Level = var_Chart.Level(0)
		var_Level.Label = "<%i%>"
		var_Level.ToolTip = ""
	var_Chart.UnitWidth = 24
oG2antt.EndUpdate()

Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	' var_Chart.PaneWidth(.f.) = 0
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(False) = 0"

	var_Chart.FirstVisibleDate = {12/24/2000}
	var_Chart.LevelCount = 2
	var_Bar = var_Chart.Bars.Add("Custom")
		var_Bar.Shape = 0
		var_Bar.StartShape = 1
		var_Bar.EndShape = 0
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem(""),"Custom",{01/02/2001},{01/02/2001},"K1","This TYPE of bar can not be resized.")
oG2antt.EndUpdate()

Dim h1 as N
Dim h2 as N
Dim h3 as N
Dim oG2antt as P
Dim var_Bar as local
Dim var_Chart as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	' var_Chart.Bars.Add("Task:Split").Shortcut = "Task"
	var_Bar = var_Chart.Bars.Add("Task:Split")
	oG2antt.TemplateDef = "dim var_Bar"
	oG2antt.TemplateDef = var_Bar
	oG2antt.Template = "var_Bar.Shortcut = `Task`"

	var_Chart.FirstVisibleDate = {12/27/2000}
	' var_Chart.PaneWidth(.f.) = 64
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(False) = 64"

	var_Chart.LevelCount = 2
	var_Chart.ShowNonworkingUnits = .f.
	var_Chart.ShowNonworkingDates = .f.
	var_Chart.NonworkingDaysPattern = 0
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task",{01/02/2001},{01/04/2001},"K1")
	h2 = var_Items.AddItem("Task 2")
	' var_Items.ItemNonworkingUnits(h2,.f.) = "weekday(value) = 1"
	oG2antt.TemplateDef = "dim var_Items,h2"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h2
	oG2antt.Template = "var_Items.ItemNonworkingUnits(h2,False) = `weekday(value) = 1`"

	var_Items.AddBar(h2,"Task",{01/04/2001},{01/06/2001},"K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	h3 = var_Items.AddItem("Task 3")
	var_Items.AddBar(h3,"Task",{01/08/2001},{01/10/2001},"K3")
	var_Items.AddLink("L2",h2,"K2",h3,"K3")
oG2antt.EndUpdate()

Dim h1 as N
Dim h2 as N
Dim h3 as N
Dim oG2antt as P
Dim var_Bar as local
Dim var_Chart as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	' var_Chart.Bars.Add("Task:Split").Shortcut = "Task"
	var_Bar = var_Chart.Bars.Add("Task:Split")
	oG2antt.TemplateDef = "dim var_Bar"
	oG2antt.TemplateDef = var_Bar
	oG2antt.Template = "var_Bar.Shortcut = `Task`"

	var_Chart.FirstVisibleDate = {12/27/2000}
	' var_Chart.PaneWidth(.f.) = 64
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(False) = 64"

	var_Chart.LevelCount = 2
	var_Chart.ShowNonworkingUnits = .f.
	var_Chart.ShowNonworkingDates = .f.
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task",{01/02/2001},{01/04/2001},"K1")
	h2 = var_Items.AddItem("Task 2")
	' var_Items.ItemNonworkingUnits(h2,.f.) = "weekday(value) = 1"
	oG2antt.TemplateDef = "dim var_Items,h2"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h2
	oG2antt.Template = "var_Items.ItemNonworkingUnits(h2,False) = `weekday(value) = 1`"

	var_Items.AddBar(h2,"Task",{01/04/2001},{01/06/2001},"K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	h3 = var_Items.AddItem("Task 3")
	var_Items.AddBar(h3,"Task",{01/08/2001},{01/10/2001},"K3")
	var_Items.AddLink("L2",h2,"K2",h3,"K3")
oG2antt.EndUpdate()

Dim oG2antt as P
Dim var_Chart as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = {01/01/2008}
	' var_Chart.PaneWidth(.f.) = 0
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(False) = 0"

	var_Chart.LevelCount = 2
	var_Chart.ShowNonworkingUnits = .f.
	var_Chart.ShowNonworkingDates = .f.
oG2antt.EndUpdate()

Dim h as N
Dim h1 as N
Dim oG2antt as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Columns as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.FullRowSelect = 1
oG2antt.SingleSel = .f.
oG2antt.ReadOnly = -1
oG2antt.MarkSearchColumn = .f.
oG2antt.ShowFocusRect = .f.
oG2antt.LinesAtRoot = -1
oG2antt.SelForeColor = 0
oG2antt.SelBackColor = 15917512
var_Columns = oG2antt.Columns
	var_Columns.Add("A")
	var_Column = var_Columns.Add("B")
		var_Column.AllowSizing = .f.
		var_Column.Width = 24
	var_Column1 = var_Columns.Add("C")
		var_Column1.AllowSizing = .f.
		var_Column1.Width = 24
		' var_Column1.Def(0) = 1
		oG2antt.TemplateDef = "dim var_Column1"
		oG2antt.TemplateDef = var_Column1
		oG2antt.Template = "var_Column1.Def(0) = 1"

		var_Column1.PartialCheck = .t.
	var_Column2 = var_Columns.Add("D")
		var_Column2.AllowSizing = .f.
		var_Column2.Width = 24
		' var_Column2.Def(1) = 1
		oG2antt.TemplateDef = "dim var_Column2"
		oG2antt.TemplateDef = var_Column2
		oG2antt.Template = "var_Column2.Def(1) = 1"

var_Items = oG2antt.Items
	h = var_Items.InsertItem(,,"Group 1")
	h1 = var_Items.InsertItem(h,,16)
	' var_Items.CellValue(h1,1) = 17
	oG2antt.TemplateDef = "dim var_Items,h1"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h1
	oG2antt.Template = "var_Items.CellValue(h1,1) = 17"

	h1 = var_Items.InsertItem(h,,2)
	' var_Items.CellValue(h1,1) = 11
	oG2antt.TemplateDef = "dim var_Items,h1"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h1
	oG2antt.Template = "var_Items.CellValue(h1,1) = 11"

	h1 = var_Items.InsertItem(h,,2)
	' var_Items.ItemBackColor(h1) = 15790320
	oG2antt.TemplateDef = "dim var_Items,h1"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h1
	oG2antt.Template = "var_Items.ItemBackColor(h1) = 15790320"

	' var_Items.CellValue(h1,1) = 9
	oG2antt.TemplateDef = "dim var_Items,h1"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h1
	oG2antt.Template = "var_Items.CellValue(h1,1) = 9"

	' var_Items.ExpandItem(h) = .t.
	oG2antt.TemplateDef = "dim var_Items,h"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h
	oG2antt.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.InsertItem(,,"Group 2")
	' var_Items.CellValueFormat(h,2) = 1
	oG2antt.TemplateDef = "dim var_Items,h"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h
	oG2antt.Template = "var_Items.CellValueFormat(h,2) = 1"

	h1 = var_Items.InsertItem(h,,16)
	' var_Items.CellValue(h1,1) = 9
	oG2antt.TemplateDef = "dim var_Items,h1"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h1
	oG2antt.Template = "var_Items.CellValue(h1,1) = 9"

	h1 = var_Items.InsertItem(h,,12)
	' var_Items.CellValue(h1,1) = 11
	oG2antt.TemplateDef = "dim var_Items,h1"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h1
	oG2antt.Template = "var_Items.CellValue(h1,1) = 11"

	h1 = var_Items.InsertItem(h,,2)
	' var_Items.CellValue(h1,1) = 2
	oG2antt.TemplateDef = "dim var_Items,h1"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h1
	oG2antt.Template = "var_Items.CellValue(h1,1) = 2"

	' var_Items.ExpandItem(h) = .t.
	oG2antt.TemplateDef = "dim var_Items,h"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h
	oG2antt.Template = "var_Items.ExpandItem(h) = True"

	' var_Items.SelectItem(h) = .t.
	oG2antt.TemplateDef = "dim var_Items,h"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h
	oG2antt.Template = "var_Items.SelectItem(h) = True"

oG2antt.EndUpdate()

Dim oG2antt as P
Dim var_Chart as P
Dim var_InsideZooms as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = {01/01/2008}
	' var_Chart.PaneWidth(.f.) = 0
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(False) = 0"

	var_Chart.LevelCount = 2
	var_Chart.AllowInsideZoom = .t.
	var_Chart.AllowResizeInsideZoom = .f.
	var_Chart.InsideZoomOnDblClick = .f.
	var_InsideZooms = var_Chart.InsideZooms
		var_InsideZooms.SplitBaseLevel = .f.
		var_InsideZooms.DefaultWidth = 0
		var_InsideZooms.Add({01/04/2008})
		var_InsideZooms.Add({01/05/2008})
		var_InsideZooms.Add({01/06/2008})
	var_Chart.SelectLevel = 1
	' var_Chart.SelectDate({01/05/2008}) = .t.
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.SelectDate(#1/5/2008#) = True"

oG2antt.EndUpdate()

' Occurs when a bar is moving or resizing.
function BarResizing as v (Item  as  OLE::Exontrol.G2antt.1::HITEM,Key  as  A)
	oG2antt = topparent:CONTROL_ACTIVEX1.activex
	oG2antt.Items.SchedulePDM(Item,Key)
end function

Dim h1 as N
Dim h2 as N
Dim h3 as N
Dim h4 as N
Dim oG2antt as P
Dim var_Bar as local
Dim var_Chart as P
Dim var_Column as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Items.AllowCellValueToItemBar = .t.
oG2antt.Columns.Add("Task")
var_Column = oG2antt.Columns.Add("Working")
	' var_Column.Def(18) = 258
	oG2antt.TemplateDef = "dim var_Column"
	oG2antt.TemplateDef = var_Column
	oG2antt.Template = "var_Column.Def(18) = 258"

	var_Column.Editor.EditType = 4
var_Chart = oG2antt.Chart
	' var_Chart.Bars.Add("Task:Split").Shortcut = "Task"
	var_Bar = var_Chart.Bars.Add("Task:Split")
	oG2antt.TemplateDef = "dim var_Bar"
	oG2antt.TemplateDef = var_Bar
	oG2antt.Template = "var_Bar.Shortcut = `Task`"

	var_Chart.FirstVisibleDate = {12/28/2000}
	' var_Chart.PaneWidth(.f.) = 96
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(False) = 96"

	var_Chart.AllowLinkBars = .f.
	var_Chart.AllowCreateBar = 0
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task",{01/02/2001},{01/04/2001},"")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task",{01/02/2001},{01/04/2001},"")
	var_Items.AddLink("L1",h1,"",h2,"")
	h3 = var_Items.AddItem("Task 3")
	var_Items.AddBar(h3,"Task",{01/02/2001},{01/06/2001},"")
	var_Items.AddLink("L2",h2,"",h3,"")
	' var_Items.Link("L2",12) = "FF"
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L2`,12) = `FF`"

	' var_Items.Link("L2",6) = 2
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L2`,6) = 2"

	' var_Items.Link("L2",7) = 2
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L2`,7) = 2"

	h4 = var_Items.AddItem("Task 4")
	var_Items.AddBar(h4,"Task",{01/02/2001},{01/04/2001},"")
	var_Items.AddLink("L3",h4,"",h3,"")
	' var_Items.ItemBar(0,"<*>",20) = .t.
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.ItemBar(0,`<*>`,20) = True"

	var_Items.SchedulePDM(var_Items.FirstVisibleItem,"")
oG2antt.EndUpdate()

' Occurs when a bar is moving or resizing.
function BarResizing as v (Item  as  OLE::Exontrol.G2antt.1::HITEM,Key  as  A)
	oG2antt = topparent:CONTROL_ACTIVEX1.activex
	oG2antt.Items.SchedulePDM(Item,Key)
end function

Dim h1 as N
Dim h2 as N
Dim h3 as N
Dim h4 as N
Dim oG2antt as P
Dim var_Bar as local
Dim var_Chart as P
Dim var_Column as local
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Items.AllowCellValueToItemBar = .t.
oG2antt.Columns.Add("Task")
' oG2antt.Columns.Add("Working").Def(18) = 258
var_Column = oG2antt.Columns.Add("Working")
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Def(18) = 258"

var_Chart = oG2antt.Chart
	' var_Chart.Bars.Add("Task:Split").Shortcut = "Task"
	var_Bar = var_Chart.Bars.Add("Task:Split")
	oG2antt.TemplateDef = "dim var_Bar"
	oG2antt.TemplateDef = var_Bar
	oG2antt.Template = "var_Bar.Shortcut = `Task`"

	var_Chart.FirstVisibleDate = {12/28/2000}
	' var_Chart.PaneWidth(.f.) = 96
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(False) = 96"

	var_Chart.AllowLinkBars = .f.
	var_Chart.AllowCreateBar = 0
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task",{01/02/2001},{01/04/2001},"")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task",{01/02/2001},{01/04/2001},"")
	var_Items.AddLink("L1",h1,"",h2,"")
	h3 = var_Items.AddItem("Task 3")
	var_Items.AddBar(h3,"Task",{01/02/2001},{01/06/2001},"")
	var_Items.AddLink("L2",h2,"",h3,"")
	' var_Items.Link("L2",12) = "FF"
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L2`,12) = `FF`"

	' var_Items.Link("L2",6) = 2
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L2`,6) = 2"

	' var_Items.Link("L2",7) = 2
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L2`,7) = 2"

	h4 = var_Items.AddItem("Task 4")
	var_Items.AddBar(h4,"Task",{01/02/2001},{01/04/2001},"")
	var_Items.AddLink("L3",h4,"",h3,"")
	' var_Items.ItemBar(0,"<*>",20) = .t.
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.ItemBar(0,`<*>`,20) = True"

	var_Items.SchedulePDM(var_Items.FirstVisibleItem,"")
oG2antt.EndUpdate()

' Occurs when a bar is moving or resizing.
function BarResizing as v (Item  as  OLE::Exontrol.G2antt.1::HITEM,Key  as  A)
	oG2antt = topparent:CONTROL_ACTIVEX1.activex
	oG2antt.Items.SchedulePDM(Item,Key)
end function

Dim h1 as N
Dim h2 as N
Dim h3 as N
Dim h4 as N
Dim oG2antt as P
Dim var_Bar as local
Dim var_Chart as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	' var_Chart.Bars.Add("Task:Split").Shortcut = "Task"
	var_Bar = var_Chart.Bars.Add("Task:Split")
	oG2antt.TemplateDef = "dim var_Bar"
	oG2antt.TemplateDef = var_Bar
	oG2antt.Template = "var_Bar.Shortcut = `Task`"

	var_Chart.FirstVisibleDate = {12/28/2000}
	' var_Chart.PaneWidth(.f.) = 48
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(False) = 48"

	var_Chart.AllowLinkBars = .f.
	var_Chart.AllowCreateBar = 0
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task",{01/02/2001},{01/04/2001},"K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task",{01/02/2001},{01/04/2001},"K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	h3 = var_Items.AddItem("Task 3")
	var_Items.AddBar(h3,"Task",{01/02/2001},{01/06/2001},"K3")
	var_Items.AddLink("L2",h2,"K2",h3,"K3")
	' var_Items.Link("L2",12) = "FF"
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L2`,12) = `FF`"

	' var_Items.Link("L2",6) = 2
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L2`,6) = 2"

	' var_Items.Link("L2",7) = 2
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L2`,7) = 2"

	h4 = var_Items.AddItem("Task 4")
	var_Items.AddBar(h4,"Task",{01/02/2001},{01/04/2001},"K4")
	var_Items.AddLink("L3",h4,"K4",h3,"K3")
	' var_Items.ItemBar(0,"<*>",20) = .t.
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.ItemBar(0,`<*>`,20) = True"

	var_Items.SchedulePDM(0,"K1")
oG2antt.EndUpdate()

' Occurs when a bar is moving or resizing.
function BarResizing as v (Item  as  OLE::Exontrol.G2antt.1::HITEM,Key  as  A)
	oG2antt = topparent:CONTROL_ACTIVEX1.activex
	oG2antt.Items.SchedulePDM(Item,Key)
end function

Dim h1 as N
Dim h2 as N
Dim h3 as N
Dim h4 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = {12/28/2000}
	' var_Chart.PaneWidth(.f.) = 48
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(False) = 48"

	var_Chart.AllowLinkBars = .f.
	var_Chart.AllowCreateBar = 0
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task",{01/02/2001},{01/04/2001},"K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task",{01/02/2001},{01/04/2001},"K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	h3 = var_Items.AddItem("Task 3")
	var_Items.AddBar(h3,"Task",{01/02/2001},{01/06/2001},"K3")
	var_Items.AddLink("L2",h2,"K2",h3,"K3")
	' var_Items.Link("L2",12) = "FF"
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L2`,12) = `FF`"

	' var_Items.Link("L2",6) = 2
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L2`,6) = 2"

	' var_Items.Link("L2",7) = 2
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L2`,7) = 2"

	h4 = var_Items.AddItem("Task 4")
	var_Items.AddBar(h4,"Task",{01/02/2001},{01/04/2001},"K4")
	var_Items.AddLink("L3",h4,"K4",h3,"K3")
	var_Items.SchedulePDM(0,"K1")
oG2antt.EndUpdate()

' Occurs when a bar is moved or resized.
function BarResize as v (Item  as  OLE::Exontrol.G2antt.1::HITEM,Key  as  A)
	oG2antt = topparent:CONTROL_ACTIVEX1.activex
	oG2antt.Items.SchedulePDM(Item,Key)
end function

Dim h1 as N
Dim h2 as N
Dim h3 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = {01/01/2001}
	' var_Chart.PaneWidth(.f.) = 48
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(False) = 48"

	var_Chart.AllowLinkBars = .f.
	var_Chart.AllowCreateBar = 0
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task",{01/02/2001},{01/04/2001},"K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task",{01/02/2001},{01/04/2001},"K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	h3 = var_Items.AddItem("Task 3")
	var_Items.AddBar(h3,"Task",{01/02/2001},{01/04/2001},"K3")
	var_Items.AddLink("L2",h2,"K2",h3,"K3")
	var_Items.SchedulePDM(0,"K1")
oG2antt.EndUpdate()

' Occurs when the user clicks a button in the scrollbar.
function ScrollButtonClick as v (ScrollBar  as  OLE::Exontrol.G2antt.1::ScrollBarEnum,ScrollPart  as  OLE::Exontrol.G2antt.1::ScrollPartEnum)
	oG2antt = topparent:CONTROL_ACTIVEX1.activex
	? ScrollBar 
	? ScrollPart 
end function

Dim oG2antt as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.Template = "ScrollPartVisible(1,32768) = True" // oG2antt.ScrollPartVisible(1,32768) = .t.
oG2antt.Template = "ScrollPartVisible(1,16384) = True" // oG2antt.ScrollPartVisible(1,16384) = .t.
oG2antt.Template = "ScrollPartVisible(1,1) = True" // oG2antt.ScrollPartVisible(1,1) = .t.
oG2antt.Template = "ScrollPartVisible(1,2) = True" // oG2antt.ScrollPartVisible(1,2) = .t.
oG2antt.ScrollBars = 5

' Occurs when an anchor element is clicked.
function AnchorClick as v (AnchorID  as  C,Options  as  C)
	oG2antt = topparent:CONTROL_ACTIVEX1.activex
	? AnchorID 
	? Options 
end function

Dim oG2antt as P
Dim var_Column as local
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
' oG2antt.Columns.Add("Default").Def(17) = 1
var_Column = oG2antt.Columns.Add("Default")
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Def(17) = 1"

var_Items = oG2antt.Items
	var_Items.AddItem("This is a link: <aex.com;1>www.exontrol.com</a>")
	var_Items.AddItem("This is a link: <aex.net;2>www.exontrol.net</a>")

' Occurs when the user dblclk the left mouse button over an object.
function DblClick as v (Shift  as  N,X  as  OLE::Exontrol.G2antt.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.G2antt.1::OLE_YPOS_PIXELS)
	oG2antt = topparent:CONTROL_ACTIVEX1.activex
	oG2antt.Edit()
end function

Dim oG2antt as P
Dim var_Editor as local
Dim var_Editor1 as local
Dim var_Items as P
Dim var_Items1 as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.AutoEdit = .f.
oG2antt.MarkSearchColumn = .f.
' oG2antt.Columns.Add("Edit1").Editor.EditType = 1
var_Editor = oG2antt.Columns.Add("Edit1").Editor
oG2antt.TemplateDef = "dim var_Editor"
oG2antt.TemplateDef = var_Editor
oG2antt.Template = "var_Editor.EditType = 1"

' oG2antt.Columns.Add("Edit2").Editor.EditType = 1
var_Editor1 = oG2antt.Columns.Add("Edit2").Editor
oG2antt.TemplateDef = "dim var_Editor1"
oG2antt.TemplateDef = var_Editor1
oG2antt.Template = "var_Editor1.EditType = 1"

var_Items = oG2antt.Items
	' var_Items.CellValue(var_Items.AddItem(1),1) = 2
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.CellValue(AddItem(1),1) = 2"

var_Items1 = oG2antt.Items
	' var_Items1.CellValue(var_Items1.AddItem(3),1) = 4
	oG2antt.TemplateDef = "dim var_Items1"
	oG2antt.TemplateDef = var_Items1
	oG2antt.Template = "var_Items1.CellValue(AddItem(3),1) = 4"

oG2antt.EndUpdate()

' Occurs when the user dblclk the left mouse button over an object.
function DblClick as v (Shift  as  N,X  as  OLE::Exontrol.G2antt.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.G2antt.1::OLE_YPOS_PIXELS)
	oG2antt = topparent:CONTROL_ACTIVEX1.activex
	oG2antt.Edit()
end function

Dim oG2antt as P
Dim var_Editor as local
Dim var_Editor1 as local
Dim var_Items as P
Dim var_Items1 as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.AutoEdit = .f.
oG2antt.MarkSearchColumn = .f.
' oG2antt.Columns.Add("Edit1").Editor.EditType = 1
var_Editor = oG2antt.Columns.Add("Edit1").Editor
oG2antt.TemplateDef = "dim var_Editor"
oG2antt.TemplateDef = var_Editor
oG2antt.Template = "var_Editor.EditType = 1"

' oG2antt.Columns.Add("Edit2").Editor.EditType = 1
var_Editor1 = oG2antt.Columns.Add("Edit2").Editor
oG2antt.TemplateDef = "dim var_Editor1"
oG2antt.TemplateDef = var_Editor1
oG2antt.Template = "var_Editor1.EditType = 1"

var_Items = oG2antt.Items
	' var_Items.CellValue(var_Items.AddItem(1),1) = 2
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.CellValue(AddItem(1),1) = 2"

var_Items1 = oG2antt.Items
	' var_Items1.CellValue(var_Items1.AddItem(3),1) = 4
	oG2antt.TemplateDef = "dim var_Items1"
	oG2antt.TemplateDef = var_Items1
	oG2antt.Template = "var_Items1.CellValue(AddItem(3),1) = 4"

oG2antt.EndUpdate()

' Occurs when the user changes the cell's content.
function Change as v (Item  as  OLE::Exontrol.G2antt.1::HITEM,ColIndex  as  N,NewValue  as  A)
	oG2antt = topparent:CONTROL_ACTIVEX1.activex
	? "Old-Value:" 
	? oG2antt.Items.CellValue(Item,ColIndex) 
	? "New-Value:" 
	? NewValue 
end function

Dim oG2antt as P
Dim var_Editor as local
Dim var_Editor1 as local
Dim var_Items as P
Dim var_Items1 as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.MarkSearchColumn = .f.
' oG2antt.Columns.Add("Edit1").Editor.EditType = 1
var_Editor = oG2antt.Columns.Add("Edit1").Editor
oG2antt.TemplateDef = "dim var_Editor"
oG2antt.TemplateDef = var_Editor
oG2antt.Template = "var_Editor.EditType = 1"

' oG2antt.Columns.Add("Edit2").Editor.EditType = 1
var_Editor1 = oG2antt.Columns.Add("Edit2").Editor
oG2antt.TemplateDef = "dim var_Editor1"
oG2antt.TemplateDef = var_Editor1
oG2antt.Template = "var_Editor1.EditType = 1"

var_Items = oG2antt.Items
	' var_Items.CellValue(var_Items.AddItem(1),1) = 2
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.CellValue(AddItem(1),1) = 2"

var_Items1 = oG2antt.Items
	' var_Items1.CellValue(var_Items1.AddItem(3),1) = 4
	oG2antt.TemplateDef = "dim var_Items1"
	oG2antt.TemplateDef = var_Items1
	oG2antt.Template = "var_Items1.CellValue(AddItem(3),1) = 4"

oG2antt.EndUpdate()

' Occurs when the filter was changed.
function FilterChange as v ()
	oG2antt = topparent:CONTROL_ACTIVEX1.activex
	oG2antt.FilterBarCaption = oG2antt.Items.VisibleCount
end function

Dim h0 as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Column as local
Dim var_Column1 as local
Dim var_Columns as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
' oG2antt.Chart.PaneWidth(.t.) = 0
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(True) = 0"

oG2antt.ColumnAutoResize = .t.
oG2antt.ContinueColumnScroll = .f.
oG2antt.FocusColumnIndex = 1
oG2antt.MarkSearchColumn = .f.
oG2antt.SearchColumnIndex = 1
oG2antt.FilterBarPromptVisible = .t.
oG2antt.FilterBarPromptType = 1
oG2antt.FilterBarPromptPattern = "london"
var_Columns = oG2antt.Columns
	' var_Columns.Add("Name").Width = 96
	var_Column = var_Columns.Add("Name")
	oG2antt.TemplateDef = "dim var_Column"
	oG2antt.TemplateDef = var_Column
	oG2antt.Template = "var_Column.Width = 96"

	' var_Columns.Add("Title").Width = 96
	var_Column1 = var_Columns.Add("Title")
	oG2antt.TemplateDef = "dim var_Column1"
	oG2antt.TemplateDef = var_Column1
	oG2antt.Template = "var_Column1.Width = 96"

	var_Columns.Add("City")
var_Items = oG2antt.Items
	h0 = var_Items.AddItem("Nancy Davolio")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Seattle"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Seattle`"

	h0 = var_Items.AddItem("Andrew Fuller")
	' var_Items.CellValue(h0,1) = "Vice President, Sales"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Vice President, Sales`"

	' var_Items.CellValue(h0,2) = "Tacoma"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Tacoma`"

	' var_Items.SelectItem(h0) = .t.
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.SelectItem(h0) = True"

	h0 = var_Items.AddItem("Janet Leverling")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Kirkland"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Kirkland`"

	h0 = var_Items.AddItem("Margaret Peacock")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Redmond"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Redmond`"

	h0 = var_Items.AddItem("Steven Buchanan")
	' var_Items.CellValue(h0,1) = "Sales Manager"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Manager`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Michael Suyama")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Robert King")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Laura Callahan")
	' var_Items.CellValue(h0,1) = "Inside Sales Coordinator"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Inside Sales Coordinator`"

	' var_Items.CellValue(h0,2) = "Seattle"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Seattle`"

	h0 = var_Items.AddItem("Anne Dodsworth")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

oG2antt.EndUpdate()

' Occurs when the user moves the mouse.
function MouseMove as v (Button  as  N,Shift  as  N,X  as  OLE::Exontrol.G2antt.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.G2antt.1::OLE_YPOS_PIXELS)
	Dim h as N
	Dim var_Items as P
	oG2antt = topparent:CONTROL_ACTIVEX1.activex
	oG2antt.BeginUpdate()
	h = oG2antt.ItemFromPoint(-1,-1,c,hit)
	var_Items = oG2antt.Items
		var_Items.ClearItemBackColor(oG2antt.Background(1000 '200 + exHSRight + exListOLEDropPosition))
		' var_Items.ItemBackColor(h) = 15792880
		oG2antt.TemplateDef = "dim var_Items,h"
		oG2antt.TemplateDef = var_Items
		oG2antt.TemplateDef = h
		oG2antt.Template = "var_Items.ItemBackColor(h) = 15792880"
	oG2antt.Template = "Background(1000) = h" // oG2antt.Background(1000 '200 + exHSRight + exListOLEDropPosition) = h
	oG2antt.EndUpdate()
end function

Dim h as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
oG2antt.DrawGridLines = 1
oG2antt.SelBackColor = 15792880
oG2antt.SelForeColor = 0
oG2antt.ShowFocusRect = .f.
var_Chart = oG2antt.Chart
	var_Chart.SelBackColor = 15792880
oG2antt.Columns.Add("Items")
var_Items = oG2antt.Items
	h = var_Items.AddItem("R1")
	var_Items.InsertItem(h,,"Cell 1.1")
	var_Items.InsertItem(h,,"Cell 1.2")
	' var_Items.ExpandItem(h) = .t.
	oG2antt.TemplateDef = "dim var_Items,h"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h
	oG2antt.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("R2")
	var_Items.InsertItem(h,,"Cell 2.1")
	var_Items.InsertItem(h,,"Cell 2.2")
	' var_Items.ExpandItem(h) = .t.
	oG2antt.TemplateDef = "dim var_Items,h"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h
	oG2antt.Template = "var_Items.ExpandItem(h) = True"

oG2antt.EndUpdate()

' Occurs when the user moves the mouse.
function MouseMove as v (Button  as  N,Shift  as  N,X  as  OLE::Exontrol.G2antt.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.G2antt.1::OLE_YPOS_PIXELS)
	Dim h as N
	oG2antt = topparent:CONTROL_ACTIVEX1.activex
	h = oG2antt.ItemFromPoint(-1,-1,c,hit)
	? "Handle" 
	? h 
	? "Index" 
	? oG2antt.Items.ItemToIndex(h) 
end function

Dim h as N
Dim oG2antt as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
oG2antt.DrawGridLines = 1
oG2antt.Columns.Add("Items")
var_Items = oG2antt.Items
	h = var_Items.AddItem("R1")
	var_Items.InsertItem(h,,"Cell 1.1")
	var_Items.InsertItem(h,,"Cell 1.2")
	' var_Items.ExpandItem(h) = .t.
	oG2antt.TemplateDef = "dim var_Items,h"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h
	oG2antt.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("R2")
	var_Items.InsertItem(h,,"Cell 2.1")
	var_Items.InsertItem(h,,"Cell 2.2")
	' var_Items.ExpandItem(h) = .t.
	oG2antt.TemplateDef = "dim var_Items,h"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h
	oG2antt.Template = "var_Items.ExpandItem(h) = True"

oG2antt.EndUpdate()

' Occurs when the user moves the mouse.
function MouseMove as v (Button  as  N,Shift  as  N,X  as  OLE::Exontrol.G2antt.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.G2antt.1::OLE_YPOS_PIXELS)
	oG2antt = topparent:CONTROL_ACTIVEX1.activex
	? oG2antt.ColumnFromPoint(-1,0) 
end function

Dim h as N
Dim oG2antt as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
oG2antt.Columns.Add("P1")
oG2antt.Columns.Add("P2")
oG2antt.DrawGridLines = -1
var_Items = oG2antt.Items
	h = var_Items.AddItem("R1")
	' var_Items.CellValue(h,1) = "R2"
	oG2antt.TemplateDef = "dim var_Items,h"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h
	oG2antt.Template = "var_Items.CellValue(h,1) = `R2`"

	' var_Items.CellValue(var_Items.InsertItem(h,,"Cell 1.1"),1) = "Cell 1.2"
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.CellValue(InsertItem(h,,`Cell 1.1`),1) = `Cell 1.2`"

	' var_Items.CellValue(var_Items.InsertItem(h,,"Cell 2.1"),1) = "Cell 2.2"
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.CellValue(InsertItem(h,,`Cell 2.1`),1) = `Cell 2.2`"

	' var_Items.ExpandItem(h) = .t.
	oG2antt.TemplateDef = "dim var_Items,h"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h
	oG2antt.Template = "var_Items.ExpandItem(h) = True"

oG2antt.EndUpdate()

' Occurs when the user moves the mouse.
function MouseMove as v (Button  as  N,Shift  as  N,X  as  OLE::Exontrol.G2antt.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.G2antt.1::OLE_YPOS_PIXELS)
	oG2antt = topparent:CONTROL_ACTIVEX1.activex
	? oG2antt.ColumnFromPoint(-1,-1) 
end function

Dim h as N
Dim oG2antt as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
oG2antt.DrawGridLines = -1
oG2antt.Columns.Add("P1")
oG2antt.Columns.Add("P2")
var_Items = oG2antt.Items
	h = var_Items.AddItem("R1")
	' var_Items.CellValue(h,1) = "R2"
	oG2antt.TemplateDef = "dim var_Items,h"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h
	oG2antt.Template = "var_Items.CellValue(h,1) = `R2`"

	' var_Items.CellValue(var_Items.InsertItem(h,,"Cell 1.1"),1) = "Cell 1.2"
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.CellValue(InsertItem(h,,`Cell 1.1`),1) = `Cell 1.2`"

	' var_Items.CellValue(var_Items.InsertItem(h,,"Cell 2.1"),1) = "Cell 2.2"
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.CellValue(InsertItem(h,,`Cell 2.1`),1) = `Cell 2.2`"

	' var_Items.ExpandItem(h) = .t.
	oG2antt.TemplateDef = "dim var_Items,h"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h
	oG2antt.Template = "var_Items.ExpandItem(h) = True"

oG2antt.EndUpdate()

' Occurs when the user moves the mouse.
function MouseMove as v (Button  as  N,Shift  as  N,X  as  OLE::Exontrol.G2antt.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.G2antt.1::OLE_YPOS_PIXELS)
	Dim h as N
	oG2antt = topparent:CONTROL_ACTIVEX1.activex
	h = oG2antt.ItemFromPoint(-1,-1,c,hit)
	? oG2antt.Items.CellCaption(h,c) 
end function

Dim h as N
Dim oG2antt as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
oG2antt.Columns.Add("Items")
var_Items = oG2antt.Items
	h = var_Items.AddItem("R1")
	var_Items.InsertItem(h,,"Cell 1.1")
	var_Items.InsertItem(h,,"Cell 1.2")
	' var_Items.ExpandItem(h) = .t.
	oG2antt.TemplateDef = "dim var_Items,h"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h
	oG2antt.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("R2")
	var_Items.InsertItem(h,,"Cell 2.1")
	var_Items.InsertItem(h,,"Cell 2.2")
	' var_Items.ExpandItem(h) = .t.
	oG2antt.TemplateDef = "dim var_Items,h"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h
	oG2antt.Template = "var_Items.ExpandItem(h) = True"

oG2antt.EndUpdate()

Dim h as N
Dim oG2antt as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.DrawGridLines = -1
oG2antt.GridLineStyle = 33 'exGridLinesVSolid + exGridLinesHDot4
oG2antt.Columns.Add("C1")
oG2antt.Columns.Add("C2")
oG2antt.Columns.Add("C3")
var_Items = oG2antt.Items
	h = var_Items.AddItem("Item 1")
	' var_Items.CellValue(h,1) = "SubItem 1.2"
	oG2antt.TemplateDef = "dim var_Items,h"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h
	oG2antt.Template = "var_Items.CellValue(h,1) = `SubItem 1.2`"

	' var_Items.CellValue(h,2) = "SubItem 1.3"
	oG2antt.TemplateDef = "dim var_Items,h"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h
	oG2antt.Template = "var_Items.CellValue(h,2) = `SubItem 1.3`"

	h = var_Items.AddItem("Item 2")
	' var_Items.CellValue(h,1) = "SubItem 2.2"
	oG2antt.TemplateDef = "dim var_Items,h"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h
	oG2antt.Template = "var_Items.CellValue(h,1) = `SubItem 2.2`"

	' var_Items.CellValue(h,2) = "SubItem 2.3"
	oG2antt.TemplateDef = "dim var_Items,h"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h
	oG2antt.Template = "var_Items.CellValue(h,2) = `SubItem 2.3`"

oG2antt.EndUpdate()

Dim h as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P
Dim var_Level as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.DrawGridLines = -1
oG2antt.GridLineColor = 14474460
var_Chart = oG2antt.Chart
	' var_Chart.PaneWidth(.f.) = 48
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(0) = 48"

	var_Chart.FirstVisibleDate = {01/01/2001}
	var_Chart.DrawGridLines = -1
	var_Chart.GridLineStyle = 256
	var_Chart.LevelCount = 2
	var_Level = var_Chart.Level(1)
		var_Level.DrawGridLines = .t.
		var_Level.GridLineColor = 14474460
	var_Bar = var_Chart.Bars.Item("Task")
		var_Bar.Pattern = 1
		var_Bar.Height = 14
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	h = var_Items.AddItem("Item 1")
	var_Items.AddBar(h,"Task",{01/02/2001},{01/05/2001},"A")
	var_Items.AddBar(h,"Task",{01/08/2001},{01/15/2001},"B")
oG2antt.EndUpdate()

Dim h as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
Dim var_Level as local
Dim var_Level1 as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.DrawGridLines = -1
oG2antt.GridLineStyle = 12
var_Chart = oG2antt.Chart
	' var_Chart.PaneWidth(.f.) = 48
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(0) = 48"

	var_Chart.FirstVisibleDate = {01/01/2001}
	var_Chart.DrawGridLines = -1
	var_Chart.GridLineStyle = 12
	var_Chart.LevelCount = 2
	' var_Chart.Level(1).DrawGridLines = .t.
	var_Level = var_Chart.Level(1)
	oG2antt.TemplateDef = "dim var_Level"
	oG2antt.TemplateDef = var_Level
	oG2antt.Template = "var_Level.DrawGridLines = True"

	var_Level1 = var_Chart.Level(0)
		var_Level1.GridLineColor = 255
		var_Level1.GridLineStyle = 32
	var_Chart.Bars.Item("Task").Pattern = 1
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	h = var_Items.AddItem("Item 1")
	var_Items.AddBar(h,"Task",{01/02/2001},{01/05/2001},"A")
	var_Items.AddBar(h,"Task",{01/08/2001},{01/15/2001},"B")
oG2antt.EndUpdate()

Dim h as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
Dim var_Level as local

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.DrawGridLines = -1
oG2antt.GridLineStyle = 48
var_Chart = oG2antt.Chart
	' var_Chart.PaneWidth(.f.) = 48
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(0) = 48"

	var_Chart.FirstVisibleDate = {01/01/2001}
	var_Chart.DrawGridLines = -1
	var_Chart.GridLineStyle = 48
	var_Chart.LevelCount = 2
	' var_Chart.Level(1).DrawGridLines = .t.
	var_Level = var_Chart.Level(1)
	oG2antt.TemplateDef = "dim var_Level"
	oG2antt.TemplateDef = var_Level
	oG2antt.Template = "var_Level.DrawGridLines = True"

	var_Chart.Bars.Item("Task").Pattern = 1
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	h = var_Items.AddItem("Item 1")
	var_Items.AddBar(h,"Task",{01/02/2001},{01/05/2001},"A")
	var_Items.AddBar(h,"Task",{01/08/2001},{01/15/2001},"B")
oG2antt.EndUpdate()

Dim h as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
Dim var_Level as local

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.DrawGridLines = -1
var_Chart = oG2antt.Chart
	' var_Chart.PaneWidth(.f.) = 48
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(0) = 48"

	var_Chart.FirstVisibleDate = {01/01/2001}
	var_Chart.DrawGridLines = -1
	var_Chart.LevelCount = 2
	' var_Chart.Level(1).DrawGridLines = .t.
	var_Level = var_Chart.Level(1)
	oG2antt.TemplateDef = "dim var_Level"
	oG2antt.TemplateDef = var_Level
	oG2antt.Template = "var_Level.DrawGridLines = True"

	var_Chart.Bars.Item("Task").Pattern = 1
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	h = var_Items.AddItem("Item 1")
	var_Items.AddBar(h,"Task",{01/02/2001},{01/05/2001},"A")
	var_Items.AddBar(h,"Task",{01/08/2001},{01/15/2001},"B")

Dim oG2antt as P
Dim var_Chart as P
Dim var_Level as local

oG2antt = topparent:CONTROL_ACTIVEX1.activex
var_Chart = oG2antt.Chart
	' var_Chart.PaneWidth(.f.) = 0
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(False) = 0"

	var_Chart.FirstVisibleDate = {12/28/2009}
	var_Chart.LevelCount = 2
	' var_Chart.Level(0).Label = "Week: <%ww%>/<%yyyy%>"
	var_Level = var_Chart.Level(0)
	oG2antt.TemplateDef = "dim var_Level"
	oG2antt.TemplateDef = var_Level
	oG2antt.Template = "var_Level.Label = `Week: <%ww%>/<%yyyy%>`"

	var_Chart.FirstWeekDay = 1

Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = {01/01/2001}
	' var_Chart.PaneWidth(.f.) = 48
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(False) = 48"

var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",{01/02/2001},{01/06/2001})
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",{01/03/2001},{01/07/2001})
	var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",{01/04/2001},{01/08/2001})
	var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",{01/06/2001},{01/10/2001})
? oG2antt.Chart.StartPrintDate 
? oG2antt.Chart.EndPrintDate 

Dim h as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Column as P
Dim var_Columns as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Items.AllowCellValueToItemBar = .t.
var_Columns = oG2antt.Columns
	var_Columns.Add("Task")
	var_Column = var_Columns.Add("Percent")
		var_Column.Editor.EditType = 4
		' var_Column.Def(18) = 518
		oG2antt.TemplateDef = "dim var_Column"
		oG2antt.TemplateDef = var_Column
		oG2antt.Template = "var_Column.Def(18) = 518"

var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = {01/01/2001}
	var_Chart.Bars.Add("Task%Progress")
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task%Progress",{01/02/2001},{01/06/2001})
	' var_Items.CellValue(h,1) = 40
	oG2antt.TemplateDef = "dim var_Items,h"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h
	oG2antt.Template = "var_Items.CellValue(h,1) = 40"

	h = var_Items.AddItem("Task 2")
	var_Items.AddBar(h,"Task%Progress",{01/02/2001},{01/06/2001})
	' var_Items.CellValue(h,1) = 50
	oG2antt.TemplateDef = "dim var_Items,h"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h
	oG2antt.Template = "var_Items.CellValue(h,1) = 50"

oG2antt.EndUpdate()

Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	' var_Chart.PaneWidth(.f.) = 64
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(False) = 64"

	var_Chart.FirstVisibleDate = {01/01/2001}
	var_Chart.HistogramVisible = .t.
	var_Chart.HistogramView = 8
	var_Chart.HistogramHeight = 32
	var_Chart.Bars.Item("Task").HistogramPattern = 6
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/03/2001},{01/05/2001},1)
	var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",{01/04/2001},{01/07/2001},2)
	var_Items.AddBar(var_Items.AddItem("Item 3"),"Task",{01/02/2001},{01/06/2001},3)
	' var_Items.ItemBar(0,2,257) = .t.
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.ItemBar(0,2,257) = True"

	' var_Items.ItemBar(0,3,257) = .t.
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.ItemBar(0,3,257) = True"

oG2antt.EndUpdate()

Dim h1 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = {01/01/2001}
	' var_Chart.PaneWidth(.f.) = 48
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(False) = 48"

var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task",{01/02/2001},{01/08/2001},"K1","Unselectable")
	' var_Items.ItemBar(h1,"K1",29) = .f.
	oG2antt.TemplateDef = "dim var_Items,h1"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h1
	oG2antt.Template = "var_Items.ItemBar(h1,`K1`,29) = False"

oG2antt.EndUpdate()

Dim h1 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = {01/01/2001}
	' var_Chart.PaneWidth(.f.) = 48
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(False) = 48"

var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task",{01/02/2001},{01/04/2001},"K1","Fixed")
	' var_Items.ItemBar(h1,"K1",10) = .f.
	oG2antt.TemplateDef = "dim var_Items,h1"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h1
	oG2antt.Template = "var_Items.ItemBar(h1,`K1`,10) = False"

	' var_Items.ItemBar(h1,"K1",11) = .f.
	oG2antt.TemplateDef = "dim var_Items,h1"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h1
	oG2antt.Template = "var_Items.ItemBar(h1,`K1`,11) = False"

oG2antt.EndUpdate()

Dim h1 as N
Dim h2 as N
Dim h3 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = {01/01/2001}
	' var_Chart.PaneWidth(.f.) = 48
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(False) = 48"

var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"TaskF",{01/02/2001},{01/04/2001},"K1")
	' var_Items.ItemBar(h1,"K1",10) = .f.
	oG2antt.TemplateDef = "dim var_Items,h1"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h1
	oG2antt.Template = "var_Items.ItemBar(h1,`K1`,10) = False"

	' var_Items.ItemBar(h1,"K1",11) = .f.
	oG2antt.TemplateDef = "dim var_Items,h1"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h1
	oG2antt.Template = "var_Items.ItemBar(h1,`K1`,11) = False"

	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task",{01/02/2001},{01/04/2001},"K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	h3 = var_Items.AddItem("Task 3")
	var_Items.AddBar(h3,"TaskF",{01/02/2001},{01/04/2001},"K3")
	' var_Items.ItemBar(h3,"K3",10) = .f.
	oG2antt.TemplateDef = "dim var_Items,h3"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h3
	oG2antt.Template = "var_Items.ItemBar(h3,`K3`,10) = False"

	' var_Items.ItemBar(h3,"K3",11) = .f.
	oG2antt.TemplateDef = "dim var_Items,h3"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h3
	oG2antt.Template = "var_Items.ItemBar(h3,`K3`,11) = False"

	var_Items.AddLink("L2",h2,"K2",h3,"K3")
	var_Items.SchedulePDM(0,"K1")
oG2antt.EndUpdate()

Dim h1 as N
Dim h2 as N
Dim h3 as N
Dim oG2antt as P
Dim var_Bar as local
Dim var_Chart as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	' var_Chart.Bars.Add("Task:Split").Shortcut = "Task"
	var_Bar = var_Chart.Bars.Add("Task:Split")
	oG2antt.TemplateDef = "dim var_Bar"
	oG2antt.TemplateDef = var_Bar
	oG2antt.Template = "var_Bar.Shortcut = `Task`"

	var_Chart.FirstVisibleDate = {01/01/2001}
	' var_Chart.PaneWidth(.f.) = 48
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(False) = 48"

var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task",{01/01/2001},{01/03/2001},"K1")
	' var_Items.ItemBar(h1,"K1",20) = .t.
	oG2antt.TemplateDef = "dim var_Items,h1"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h1
	oG2antt.Template = "var_Items.ItemBar(h1,`K1`,20) = True"

	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task",{01/02/2001},{01/05/2001},"K2")
	' var_Items.ItemBar(h2,"K2",20) = .t.
	oG2antt.TemplateDef = "dim var_Items,h2"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h2
	oG2antt.Template = "var_Items.ItemBar(h2,`K2`,20) = True"

	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	' var_Items.Link("L1",12) = "FS"
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L1`,12) = `FS`"

	h3 = var_Items.AddItem("Task 3")
	var_Items.AddBar(h3,"Task",{01/02/2001},{01/06/2001},"K3")
	' var_Items.ItemBar(h3,"K3",20) = .t.
	oG2antt.TemplateDef = "dim var_Items,h3"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h3
	oG2antt.Template = "var_Items.ItemBar(h3,`K3`,20) = True"

	var_Items.AddLink("L2",h2,"K2",h3,"K3")
	' var_Items.Link("L2",12) = "link delays the bars<br>for <b>2</b> working days"
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L2`,12) = `link delays the bars<br>for <b>2</b> working days`"

	' var_Items.Link("L2",16) = 2
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L2`,16) = 2"

	var_Items.SchedulePDM(0,"K1")
oG2antt.EndUpdate()

Dim h1 as N
Dim h2 as N
Dim h3 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.ShowNonworkingDates = .f.
	var_Chart.FirstVisibleDate = {01/01/2001}
	' var_Chart.PaneWidth(.f.) = 48
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(False) = 48"

var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task",{01/02/2001},{01/04/2001},"K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task",{01/02/2001},{01/05/2001},"K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	' var_Items.Link("L1",12) = "FS"
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L1`,12) = `FS`"

	h3 = var_Items.AddItem("Task 3")
	var_Items.AddBar(h3,"Task",{01/02/2001},{01/06/2001},"K3")
	var_Items.AddLink("L2",h2,"K2",h3,"K3")
	' var_Items.Link("L2",12) = "   Finish-Start<br>delayed <b>4</b> days"
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L2`,12) = `   Finish-Start<br>delayed <b>4</b> days`"

	' var_Items.Link("L2",17) = 4
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L2`,17) = 4"

	var_Items.SchedulePDM(0,"K1")
oG2antt.EndUpdate()

Dim h1 as N
Dim h2 as N
Dim h3 as N
Dim oG2antt as P
Dim var_Bar as local
Dim var_Chart as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	' var_Chart.Bars.Add("Task:Split").Shortcut = "Task"
	var_Bar = var_Chart.Bars.Add("Task:Split")
	oG2antt.TemplateDef = "dim var_Bar"
	oG2antt.TemplateDef = var_Bar
	oG2antt.Template = "var_Bar.Shortcut = `Task`"

	var_Chart.FirstVisibleDate = {01/01/2001}
	' var_Chart.PaneWidth(.f.) = 48
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(False) = 48"

var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task",{01/02/2001},{01/04/2001},"K1")
	' var_Items.ItemBar(h1,"K1",20) = .t.
	oG2antt.TemplateDef = "dim var_Items,h1"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h1
	oG2antt.Template = "var_Items.ItemBar(h1,`K1`,20) = True"

	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task",{01/02/2001},{01/05/2001},"K2")
	' var_Items.ItemBar(h2,"K2",20) = .t.
	oG2antt.TemplateDef = "dim var_Items,h2"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h2
	oG2antt.Template = "var_Items.ItemBar(h2,`K2`,20) = True"

	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	' var_Items.Link("L1",12) = "FS"
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L1`,12) = `FS`"

	h3 = var_Items.AddItem("Task 3")
	var_Items.AddBar(h3,"Task",{01/02/2001},{01/06/2001},"K3")
	' var_Items.ItemBar(h3,"K3",20) = .t.
	oG2antt.TemplateDef = "dim var_Items,h3"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h3
	oG2antt.Template = "var_Items.ItemBar(h3,`K3`,20) = True"

	var_Items.AddLink("L2",h2,"K2",h3,"K3")
	' var_Items.Link("L2",12) = "FS"
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L2`,12) = `FS`"

	var_Items.SchedulePDM(0,"K1")
oG2antt.EndUpdate()

Dim h1 as N
Dim h2 as N
Dim h3 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = {12/28/2000}
	' var_Chart.PaneWidth(.f.) = 48
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(False) = 48"

var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task",{01/02/2001},{01/04/2001},"K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task",{01/02/2001},{01/05/2001},"K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	' var_Items.Link("L1",12) = "FS"
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L1`,12) = `FS`"

	h3 = var_Items.AddItem("Task 3")
	var_Items.AddBar(h3,"Task",{01/02/2001},{01/06/2001},"K3")
	var_Items.AddLink("L2",h2,"K2",h3,"K3")
	' var_Items.Link("L2",12) = "SF"
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L2`,12) = `SF`"

	' var_Items.Link("L2",6) = 0
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L2`,6) = 0"

	' var_Items.Link("L2",7) = 2
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L2`,7) = 2"

	var_Items.SchedulePDM(0,"K1")
oG2antt.EndUpdate()

Dim h1 as N
Dim h2 as N
Dim h3 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = {12/28/2000}
	' var_Chart.PaneWidth(.f.) = 48
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(False) = 48"

var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task",{01/02/2001},{01/04/2001},"K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task",{01/02/2001},{01/05/2001},"K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	' var_Items.Link("L1",12) = "FS"
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L1`,12) = `FS`"

	h3 = var_Items.AddItem("Task 3")
	var_Items.AddBar(h3,"Task",{01/02/2001},{01/06/2001},"K3")
	var_Items.AddLink("L2",h2,"K2",h3,"K3")
	' var_Items.Link("L2",12) = "SS"
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L2`,12) = `SS`"

	' var_Items.Link("L2",6) = 0
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L2`,6) = 0"

	' var_Items.Link("L2",7) = 0
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L2`,7) = 0"

	var_Items.SchedulePDM(0,"K1")
oG2antt.EndUpdate()

Dim h1 as N
Dim h2 as N
Dim h3 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = {12/28/2000}
	' var_Chart.PaneWidth(.f.) = 48
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(False) = 48"

var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task",{01/02/2001},{01/04/2001},"K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task",{01/02/2001},{01/05/2001},"K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	' var_Items.Link("L1",12) = "FS"
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L1`,12) = `FS`"

	h3 = var_Items.AddItem("Task 3")
	var_Items.AddBar(h3,"Task",{01/02/2001},{01/06/2001},"K3")
	var_Items.AddLink("L2",h2,"K2",h3,"K3")
	' var_Items.Link("L2",12) = "FF"
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L2`,12) = `FF`"

	' var_Items.Link("L2",6) = 2
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L2`,6) = 2"

	' var_Items.Link("L2",7) = 2
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L2`,7) = 2"

	var_Items.SchedulePDM(0,"K1")
oG2antt.EndUpdate()

Dim h1 as N
Dim h2 as N
Dim h3 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = {01/01/2001}
	' var_Chart.PaneWidth(.f.) = 48
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(False) = 48"

var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task",{01/02/2001},{01/04/2001},"K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task",{01/02/2001},{01/05/2001},"K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	' var_Items.Link("L1",12) = "FS"
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L1`,12) = `FS`"

	h3 = var_Items.AddItem("Task 3")
	var_Items.AddBar(h3,"Task",{01/02/2001},{01/06/2001},"K3")
	var_Items.AddLink("L2",h2,"K2",h3,"K3")
	' var_Items.Link("L2",12) = "FS"
	oG2antt.TemplateDef = "dim var_Items"
	oG2antt.TemplateDef = var_Items
	oG2antt.Template = "var_Items.Link(`L2`,12) = `FS`"

	var_Items.SchedulePDM(0,"K1")
oG2antt.EndUpdate()

Dim h1 as N
Dim h2 as N
Dim h3 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = {01/01/2001}
	' var_Chart.PaneWidth(.f.) = 48
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(False) = 48"

var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task",{01/02/2001},{01/04/2001},"K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task",{01/02/2001},{01/04/2001},"K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	h3 = var_Items.AddItem("Task 3")
	var_Items.AddBar(h3,"Task",{01/02/2001},{01/04/2001},"K3")
	var_Items.AddLink("L2",h3,"K3",h2,"K2")
	var_Items.SchedulePDM(0,"K1")
oG2antt.EndUpdate()

Dim h1 as N
Dim h2 as N
Dim h3 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = {01/01/2001}
	' var_Chart.PaneWidth(.f.) = 48
	oG2antt.TemplateDef = "dim var_Chart"
	oG2antt.TemplateDef = var_Chart
	oG2antt.Template = "var_Chart.PaneWidth(False) = 48"

var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task",{01/02/2001},{01/04/2001},"K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task",{01/02/2001},{01/04/2001},"K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	h3 = var_Items.AddItem("Task 3")
	var_Items.AddBar(h3,"Task",{01/02/2001},{01/04/2001},"K3")
	var_Items.AddLink("L2",h2,"K2",h3,"K3")
	var_Items.SchedulePDM(0,"K1")
oG2antt.EndUpdate()

Dim oG2antt as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.FilterBarPromptVisible = .t.
oG2antt.FilterBarCaption = "This is a bit of text being displayed in the filter bar."
oG2antt.Columns.Add("")
var_Items = oG2antt.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
oG2antt.EndUpdate()

Dim h as N
Dim oG2antt as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("")
var_Items = oG2antt.Items
	h = var_Items.AddItem("")
	' var_Items.CellValue(h,0) = var_Items.VisibleItemCount
	oG2antt.TemplateDef = "dim var_Items,h"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h
	oG2antt.Template = "var_Items.CellValue(h,0) = VisibleItemCount"

oG2antt.EndUpdate()

Dim h0 as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Column as local
Dim var_Column1 as local
Dim var_Columns as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
' oG2antt.Chart.PaneWidth(.t.) = 0
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(True) = 0"

oG2antt.ColumnAutoResize = .t.
oG2antt.ContinueColumnScroll = .f.
oG2antt.FocusColumnIndex = 1
oG2antt.MarkSearchColumn = .f.
oG2antt.SearchColumnIndex = 1
oG2antt.FilterBarPromptVisible = .t.
oG2antt.FilterBarPromptType = 12801 'exFilterPromptWords + exFilterPromptContainsAll
oG2antt.FilterBarPromptPattern = "london robert"
oG2antt.FilterBarCaption = "<r>Found: ... "
var_Columns = oG2antt.Columns
	' var_Columns.Add("Name").Width = 96
	var_Column = var_Columns.Add("Name")
	oG2antt.TemplateDef = "dim var_Column"
	oG2antt.TemplateDef = var_Column
	oG2antt.Template = "var_Column.Width = 96"

	' var_Columns.Add("Title").Width = 96
	var_Column1 = var_Columns.Add("Title")
	oG2antt.TemplateDef = "dim var_Column1"
	oG2antt.TemplateDef = var_Column1
	oG2antt.Template = "var_Column1.Width = 96"

	var_Columns.Add("City")
var_Items = oG2antt.Items
	h0 = var_Items.AddItem("Nancy Davolio")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Seattle"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Seattle`"

	h0 = var_Items.AddItem("Andrew Fuller")
	' var_Items.CellValue(h0,1) = "Vice President, Sales"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Vice President, Sales`"

	' var_Items.CellValue(h0,2) = "Tacoma"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Tacoma`"

	' var_Items.SelectItem(h0) = .t.
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.SelectItem(h0) = True"

	h0 = var_Items.AddItem("Janet Leverling")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Kirkland"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Kirkland`"

	h0 = var_Items.AddItem("Margaret Peacock")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Redmond"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Redmond`"

	h0 = var_Items.AddItem("Steven Buchanan")
	' var_Items.CellValue(h0,1) = "Sales Manager"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Manager`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Michael Suyama")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Robert King")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Laura Callahan")
	' var_Items.CellValue(h0,1) = "Inside Sales Coordinator"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Inside Sales Coordinator`"

	' var_Items.CellValue(h0,2) = "Seattle"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Seattle`"

	h0 = var_Items.AddItem("Anne Dodsworth")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

oG2antt.EndUpdate()

Dim h0 as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Column as local
Dim var_Column1 as local
Dim var_Columns as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
' oG2antt.Chart.PaneWidth(.t.) = 0
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(True) = 0"

oG2antt.ColumnAutoResize = .t.
oG2antt.ContinueColumnScroll = .f.
oG2antt.FocusColumnIndex = 1
oG2antt.MarkSearchColumn = .f.
oG2antt.SearchColumnIndex = 1
oG2antt.FilterBarPromptVisible = .t.
oG2antt.FilterBarPromptType = 16
oG2antt.FilterBarPromptPattern = "lon* seat*"
var_Columns = oG2antt.Columns
	' var_Columns.Add("Name").Width = 96
	var_Column = var_Columns.Add("Name")
	oG2antt.TemplateDef = "dim var_Column"
	oG2antt.TemplateDef = var_Column
	oG2antt.Template = "var_Column.Width = 96"

	' var_Columns.Add("Title").Width = 96
	var_Column1 = var_Columns.Add("Title")
	oG2antt.TemplateDef = "dim var_Column1"
	oG2antt.TemplateDef = var_Column1
	oG2antt.Template = "var_Column1.Width = 96"

	var_Columns.Add("City")
var_Items = oG2antt.Items
	h0 = var_Items.AddItem("Nancy Davolio")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Seattle"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Seattle`"

	h0 = var_Items.AddItem("Andrew Fuller")
	' var_Items.CellValue(h0,1) = "Vice President, Sales"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Vice President, Sales`"

	' var_Items.CellValue(h0,2) = "Tacoma"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Tacoma`"

	' var_Items.SelectItem(h0) = .t.
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.SelectItem(h0) = True"

	h0 = var_Items.AddItem("Janet Leverling")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Kirkland"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Kirkland`"

	h0 = var_Items.AddItem("Margaret Peacock")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Redmond"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Redmond`"

	h0 = var_Items.AddItem("Steven Buchanan")
	' var_Items.CellValue(h0,1) = "Sales Manager"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Manager`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Michael Suyama")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Robert King")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Laura Callahan")
	' var_Items.CellValue(h0,1) = "Inside Sales Coordinator"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Inside Sales Coordinator`"

	' var_Items.CellValue(h0,2) = "Seattle"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Seattle`"

	h0 = var_Items.AddItem("Anne Dodsworth")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

oG2antt.EndUpdate()

Dim h0 as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Column as local
Dim var_Column1 as local
Dim var_Columns as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
' oG2antt.Chart.PaneWidth(.t.) = 0
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(True) = 0"

oG2antt.ColumnAutoResize = .t.
oG2antt.ContinueColumnScroll = .f.
oG2antt.FocusColumnIndex = 1
oG2antt.MarkSearchColumn = .f.
oG2antt.SearchColumnIndex = 1
oG2antt.FilterBarPromptVisible = .t.
oG2antt.FilterBarPromptType = 4610 'exFilterPromptStartWords + exFilterPromptContainsAny
oG2antt.FilterBarPromptPattern = "london davolio"
var_Columns = oG2antt.Columns
	' var_Columns.Add("Name").Width = 96
	var_Column = var_Columns.Add("Name")
	oG2antt.TemplateDef = "dim var_Column"
	oG2antt.TemplateDef = var_Column
	oG2antt.Template = "var_Column.Width = 96"

	' var_Columns.Add("Title").Width = 96
	var_Column1 = var_Columns.Add("Title")
	oG2antt.TemplateDef = "dim var_Column1"
	oG2antt.TemplateDef = var_Column1
	oG2antt.Template = "var_Column1.Width = 96"

	var_Columns.Add("City")
var_Items = oG2antt.Items
	h0 = var_Items.AddItem("Nancy Davolio")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Seattle"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Seattle`"

	h0 = var_Items.AddItem("Andrew Fuller")
	' var_Items.CellValue(h0,1) = "Vice President, Sales"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Vice President, Sales`"

	' var_Items.CellValue(h0,2) = "Tacoma"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Tacoma`"

	' var_Items.SelectItem(h0) = .t.
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.SelectItem(h0) = True"

	h0 = var_Items.AddItem("Janet Leverling")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Kirkland"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Kirkland`"

	h0 = var_Items.AddItem("Margaret Peacock")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Redmond"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Redmond`"

	h0 = var_Items.AddItem("Steven Buchanan")
	' var_Items.CellValue(h0,1) = "Sales Manager"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Manager`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Michael Suyama")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Robert King")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Laura Callahan")
	' var_Items.CellValue(h0,1) = "Inside Sales Coordinator"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Inside Sales Coordinator`"

	' var_Items.CellValue(h0,2) = "Seattle"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Seattle`"

	h0 = var_Items.AddItem("Anne Dodsworth")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

oG2antt.EndUpdate()

Dim h0 as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Column as local
Dim var_Column1 as local
Dim var_Columns as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.ColumnAutoResize = .t.
oG2antt.ContinueColumnScroll = .f.
oG2antt.FocusColumnIndex = 1
' oG2antt.Chart.PaneWidth(.t.) = 0
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(True) = 0"

oG2antt.MarkSearchColumn = .f.
oG2antt.SearchColumnIndex = 1
oG2antt.FilterBarPromptVisible = .t.
oG2antt.FilterBarPromptType = 12802 'exFilterPromptWords + exFilterPromptContainsAny
oG2antt.FilterBarPromptPattern = "london nancy"
var_Columns = oG2antt.Columns
	' var_Columns.Add("Name").Width = 96
	var_Column = var_Columns.Add("Name")
	oG2antt.TemplateDef = "dim var_Column"
	oG2antt.TemplateDef = var_Column
	oG2antt.Template = "var_Column.Width = 96"

	' var_Columns.Add("Title").Width = 96
	var_Column1 = var_Columns.Add("Title")
	oG2antt.TemplateDef = "dim var_Column1"
	oG2antt.TemplateDef = var_Column1
	oG2antt.Template = "var_Column1.Width = 96"

	var_Columns.Add("City")
var_Items = oG2antt.Items
	h0 = var_Items.AddItem("Nancy Davolio")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Seattle"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Seattle`"

	h0 = var_Items.AddItem("Andrew Fuller")
	' var_Items.CellValue(h0,1) = "Vice President, Sales"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Vice President, Sales`"

	' var_Items.CellValue(h0,2) = "Tacoma"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Tacoma`"

	' var_Items.SelectItem(h0) = .t.
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.SelectItem(h0) = True"

	h0 = var_Items.AddItem("Janet Leverling")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Kirkland"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Kirkland`"

	h0 = var_Items.AddItem("Margaret Peacock")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Redmond"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Redmond`"

	h0 = var_Items.AddItem("Steven Buchanan")
	' var_Items.CellValue(h0,1) = "Sales Manager"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Manager`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Michael Suyama")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Robert King")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Laura Callahan")
	' var_Items.CellValue(h0,1) = "Inside Sales Coordinator"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Inside Sales Coordinator`"

	' var_Items.CellValue(h0,2) = "Seattle"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Seattle`"

	h0 = var_Items.AddItem("Anne Dodsworth")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

oG2antt.EndUpdate()

Dim h0 as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Column as local
Dim var_Column1 as local
Dim var_Columns as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
' oG2antt.Chart.PaneWidth(.t.) = 0
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(True) = 0"

oG2antt.ColumnAutoResize = .t.
oG2antt.ContinueColumnScroll = .f.
oG2antt.FocusColumnIndex = 1
oG2antt.MarkSearchColumn = .f.
oG2antt.SearchColumnIndex = 1
oG2antt.FilterBarPromptVisible = .t.
oG2antt.FilterBarPromptType = 12801 'exFilterPromptWords + exFilterPromptContainsAll
oG2antt.FilterBarPromptPattern = "london robert"
var_Columns = oG2antt.Columns
	' var_Columns.Add("Name").Width = 96
	var_Column = var_Columns.Add("Name")
	oG2antt.TemplateDef = "dim var_Column"
	oG2antt.TemplateDef = var_Column
	oG2antt.Template = "var_Column.Width = 96"

	' var_Columns.Add("Title").Width = 96
	var_Column1 = var_Columns.Add("Title")
	oG2antt.TemplateDef = "dim var_Column1"
	oG2antt.TemplateDef = var_Column1
	oG2antt.Template = "var_Column1.Width = 96"

	var_Columns.Add("City")
var_Items = oG2antt.Items
	h0 = var_Items.AddItem("Nancy Davolio")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Seattle"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Seattle`"

	h0 = var_Items.AddItem("Andrew Fuller")
	' var_Items.CellValue(h0,1) = "Vice President, Sales"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Vice President, Sales`"

	' var_Items.CellValue(h0,2) = "Tacoma"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Tacoma`"

	' var_Items.SelectItem(h0) = .t.
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.SelectItem(h0) = True"

	h0 = var_Items.AddItem("Janet Leverling")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Kirkland"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Kirkland`"

	h0 = var_Items.AddItem("Margaret Peacock")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Redmond"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Redmond`"

	h0 = var_Items.AddItem("Steven Buchanan")
	' var_Items.CellValue(h0,1) = "Sales Manager"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Manager`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Michael Suyama")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Robert King")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Laura Callahan")
	' var_Items.CellValue(h0,1) = "Inside Sales Coordinator"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Inside Sales Coordinator`"

	' var_Items.CellValue(h0,2) = "Seattle"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Seattle`"

	h0 = var_Items.AddItem("Anne Dodsworth")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

oG2antt.EndUpdate()

Dim h0 as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Column as local
Dim var_Column1 as local
Dim var_Columns as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.ColumnAutoResize = .t.
oG2antt.ContinueColumnScroll = .f.
oG2antt.FocusColumnIndex = 1
oG2antt.MarkSearchColumn = .f.
oG2antt.SearchColumnIndex = 1
oG2antt.FilterBarPromptVisible = .t.
oG2antt.FilterBarPromptType = 258 'exFilterPromptCaseSensitive + exFilterPromptContainsAny
oG2antt.FilterBarPromptPattern = "Anne"
' oG2antt.Chart.PaneWidth(.t.) = 0
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(True) = 0"

var_Columns = oG2antt.Columns
	' var_Columns.Add("Name").Width = 96
	var_Column = var_Columns.Add("Name")
	oG2antt.TemplateDef = "dim var_Column"
	oG2antt.TemplateDef = var_Column
	oG2antt.Template = "var_Column.Width = 96"

	' var_Columns.Add("Title").Width = 96
	var_Column1 = var_Columns.Add("Title")
	oG2antt.TemplateDef = "dim var_Column1"
	oG2antt.TemplateDef = var_Column1
	oG2antt.Template = "var_Column1.Width = 96"

	var_Columns.Add("City")
var_Items = oG2antt.Items
	h0 = var_Items.AddItem("Nancy Davolio")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Seattle"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Seattle`"

	h0 = var_Items.AddItem("Andrew Fuller")
	' var_Items.CellValue(h0,1) = "Vice President, Sales"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Vice President, Sales`"

	' var_Items.CellValue(h0,2) = "Tacoma"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Tacoma`"

	' var_Items.SelectItem(h0) = .t.
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.SelectItem(h0) = True"

	h0 = var_Items.AddItem("Janet Leverling")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Kirkland"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Kirkland`"

	h0 = var_Items.AddItem("Margaret Peacock")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Redmond"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Redmond`"

	h0 = var_Items.AddItem("Steven Buchanan")
	' var_Items.CellValue(h0,1) = "Sales Manager"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Manager`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Michael Suyama")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Robert King")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Laura Callahan")
	' var_Items.CellValue(h0,1) = "Inside Sales Coordinator"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Inside Sales Coordinator`"

	' var_Items.CellValue(h0,2) = "Seattle"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Seattle`"

	h0 = var_Items.AddItem("Anne Dodsworth")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

oG2antt.EndUpdate()

Dim h0 as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Column as local
Dim var_Column1 as local
Dim var_Columns as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.ColumnAutoResize = .t.
oG2antt.ContinueColumnScroll = .f.
oG2antt.FocusColumnIndex = 1
oG2antt.MarkSearchColumn = .f.
oG2antt.SearchColumnIndex = 1
oG2antt.FilterBarPromptVisible = .t.
oG2antt.FilterBarPromptType = 4
oG2antt.FilterBarPromptColumns = "0"
oG2antt.FilterBarPromptPattern = "Fuller"
' oG2antt.Chart.PaneWidth(.t.) = 0
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(True) = 0"

var_Columns = oG2antt.Columns
	' var_Columns.Add("Name").Width = 96
	var_Column = var_Columns.Add("Name")
	oG2antt.TemplateDef = "dim var_Column"
	oG2antt.TemplateDef = var_Column
	oG2antt.Template = "var_Column.Width = 96"

	' var_Columns.Add("Title").Width = 96
	var_Column1 = var_Columns.Add("Title")
	oG2antt.TemplateDef = "dim var_Column1"
	oG2antt.TemplateDef = var_Column1
	oG2antt.Template = "var_Column1.Width = 96"

	var_Columns.Add("City")
var_Items = oG2antt.Items
	h0 = var_Items.AddItem("Nancy Davolio")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Seattle"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Seattle`"

	h0 = var_Items.AddItem("Andrew Fuller")
	' var_Items.CellValue(h0,1) = "Vice President, Sales"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Vice President, Sales`"

	' var_Items.CellValue(h0,2) = "Tacoma"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Tacoma`"

	' var_Items.SelectItem(h0) = .t.
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.SelectItem(h0) = True"

	h0 = var_Items.AddItem("Janet Leverling")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Kirkland"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Kirkland`"

	h0 = var_Items.AddItem("Margaret Peacock")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Redmond"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Redmond`"

	h0 = var_Items.AddItem("Steven Buchanan")
	' var_Items.CellValue(h0,1) = "Sales Manager"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Manager`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Michael Suyama")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Robert King")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Laura Callahan")
	' var_Items.CellValue(h0,1) = "Inside Sales Coordinator"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Inside Sales Coordinator`"

	' var_Items.CellValue(h0,2) = "Seattle"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Seattle`"

	h0 = var_Items.AddItem("Anne Dodsworth")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

oG2antt.EndUpdate()

Dim h0 as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Column as local
Dim var_Column1 as local
Dim var_Columns as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.ColumnAutoResize = .t.
oG2antt.ContinueColumnScroll = .f.
oG2antt.FocusColumnIndex = 1
oG2antt.MarkSearchColumn = .f.
oG2antt.SearchColumnIndex = 1
oG2antt.FilterBarPromptVisible = .t.
oG2antt.FilterBarPromptType = 4
oG2antt.FilterBarPromptColumns = "0"
oG2antt.FilterBarPromptPattern = "Fuller"
' oG2antt.Chart.PaneWidth(.t.) = 0
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(True) = 0"

var_Columns = oG2antt.Columns
	' var_Columns.Add("Name").Width = 96
	var_Column = var_Columns.Add("Name")
	oG2antt.TemplateDef = "dim var_Column"
	oG2antt.TemplateDef = var_Column
	oG2antt.Template = "var_Column.Width = 96"

	' var_Columns.Add("Title").Width = 96
	var_Column1 = var_Columns.Add("Title")
	oG2antt.TemplateDef = "dim var_Column1"
	oG2antt.TemplateDef = var_Column1
	oG2antt.Template = "var_Column1.Width = 96"

	var_Columns.Add("City")
var_Items = oG2antt.Items
	h0 = var_Items.AddItem("Nancy Davolio")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Seattle"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Seattle`"

	h0 = var_Items.AddItem("Andrew Fuller")
	' var_Items.CellValue(h0,1) = "Vice President, Sales"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Vice President, Sales`"

	' var_Items.CellValue(h0,2) = "Tacoma"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Tacoma`"

	' var_Items.SelectItem(h0) = .t.
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.SelectItem(h0) = True"

	h0 = var_Items.AddItem("Janet Leverling")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Kirkland"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Kirkland`"

	h0 = var_Items.AddItem("Margaret Peacock")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Redmond"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Redmond`"

	h0 = var_Items.AddItem("Steven Buchanan")
	' var_Items.CellValue(h0,1) = "Sales Manager"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Manager`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Michael Suyama")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Robert King")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Laura Callahan")
	' var_Items.CellValue(h0,1) = "Inside Sales Coordinator"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Inside Sales Coordinator`"

	' var_Items.CellValue(h0,2) = "Seattle"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Seattle`"

	h0 = var_Items.AddItem("Anne Dodsworth")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

oG2antt.EndUpdate()

Dim h0 as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Column as local
Dim var_Column1 as local
Dim var_Columns as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.ColumnAutoResize = .t.
oG2antt.ContinueColumnScroll = .f.
oG2antt.FocusColumnIndex = 1
oG2antt.MarkSearchColumn = .f.
oG2antt.SearchColumnIndex = 1
oG2antt.FilterBarPromptVisible = .t.
oG2antt.FilterBarPromptType = 3
oG2antt.FilterBarPromptColumns = "0"
oG2antt.FilterBarPromptPattern = "An M"
' oG2antt.Chart.PaneWidth(.t.) = 0
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(True) = 0"

var_Columns = oG2antt.Columns
	' var_Columns.Add("Name").Width = 96
	var_Column = var_Columns.Add("Name")
	oG2antt.TemplateDef = "dim var_Column"
	oG2antt.TemplateDef = var_Column
	oG2antt.Template = "var_Column.Width = 96"

	' var_Columns.Add("Title").Width = 96
	var_Column1 = var_Columns.Add("Title")
	oG2antt.TemplateDef = "dim var_Column1"
	oG2antt.TemplateDef = var_Column1
	oG2antt.Template = "var_Column1.Width = 96"

	var_Columns.Add("City")
var_Items = oG2antt.Items
	h0 = var_Items.AddItem("Nancy Davolio")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Seattle"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Seattle`"

	h0 = var_Items.AddItem("Andrew Fuller")
	' var_Items.CellValue(h0,1) = "Vice President, Sales"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Vice President, Sales`"

	' var_Items.CellValue(h0,2) = "Tacoma"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Tacoma`"

	' var_Items.SelectItem(h0) = .t.
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.SelectItem(h0) = True"

	h0 = var_Items.AddItem("Janet Leverling")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Kirkland"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Kirkland`"

	h0 = var_Items.AddItem("Margaret Peacock")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Redmond"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Redmond`"

	h0 = var_Items.AddItem("Steven Buchanan")
	' var_Items.CellValue(h0,1) = "Sales Manager"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Manager`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Michael Suyama")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Robert King")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Laura Callahan")
	' var_Items.CellValue(h0,1) = "Inside Sales Coordinator"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Inside Sales Coordinator`"

	' var_Items.CellValue(h0,2) = "Seattle"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Seattle`"

	h0 = var_Items.AddItem("Anne Dodsworth")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

oG2antt.EndUpdate()

Dim h0 as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Column as local
Dim var_Column1 as local
Dim var_Columns as P
Dim var_Items as P

oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.ColumnAutoResize = .t.
oG2antt.ContinueColumnScroll = .f.
oG2antt.FocusColumnIndex = 1
oG2antt.MarkSearchColumn = .f.
oG2antt.SearchColumnIndex = 1
oG2antt.FilterBarPromptVisible = .t.
oG2antt.FilterBarPromptType = 3
oG2antt.FilterBarPromptColumns = "0"
oG2antt.FilterBarPromptPattern = "A"
' oG2antt.Chart.PaneWidth(.t.) = 0
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(True) = 0"

var_Columns = oG2antt.Columns
	' var_Columns.Add("Name").Width = 96
	var_Column = var_Columns.Add("Name")
	oG2antt.TemplateDef = "dim var_Column"
	oG2antt.TemplateDef = var_Column
	oG2antt.Template = "var_Column.Width = 96"

	' var_Columns.Add("Title").Width = 96
	var_Column1 = var_Columns.Add("Title")
	oG2antt.TemplateDef = "dim var_Column1"
	oG2antt.TemplateDef = var_Column1
	oG2antt.Template = "var_Column1.Width = 96"

	var_Columns.Add("City")
var_Items = oG2antt.Items
	h0 = var_Items.AddItem("Nancy Davolio")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Seattle"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Seattle`"

	h0 = var_Items.AddItem("Andrew Fuller")
	' var_Items.CellValue(h0,1) = "Vice President, Sales"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Vice President, Sales`"

	' var_Items.CellValue(h0,2) = "Tacoma"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Tacoma`"

	' var_Items.SelectItem(h0) = .t.
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.SelectItem(h0) = True"

	h0 = var_Items.AddItem("Janet Leverling")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Kirkland"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Kirkland`"

	h0 = var_Items.AddItem("Margaret Peacock")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "Redmond"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Redmond`"

	h0 = var_Items.AddItem("Steven Buchanan")
	' var_Items.CellValue(h0,1) = "Sales Manager"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Manager`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Michael Suyama")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Robert King")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

	h0 = var_Items.AddItem("Laura Callahan")
	' var_Items.CellValue(h0,1) = "Inside Sales Coordinator"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Inside Sales Coordinator`"

	' var_Items.CellValue(h0,2) = "Seattle"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `Seattle`"

	h0 = var_Items.AddItem("Anne Dodsworth")
	' var_Items.CellValue(h0,1) = "Sales Representative"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,1) = `Sales Representative`"

	' var_Items.CellValue(h0,2) = "London"
	oG2antt.TemplateDef = "dim var_Items,h0"
	oG2antt.TemplateDef = var_Items
	oG2antt.TemplateDef = h0
	oG2antt.Template = "var_Items.CellValue(h0,2) = `London`"

oG2antt.EndUpdate()